Si crei il database di prova database.mdb con la tabella utenti con i campi id (contatore) e nome (testo), vi si inserisca qualche dato di prova e lo si disponga nella cartella contenente i file Asp che creeremo.
Si crei il file conn.asp che conterrà le funzioni ConnOpen() e ConnClose(), i cui nomi pi sembrano abbastanza esplicativi in merito al loro ruolo. Di seguito il codice:
<%
var Cn = new ActiveXObject("ADODB.Connection");
function ConnOpen()
{
try
{
if (Cn.State == 1)
{
Cn.Close();
}
else
{
var stringa = "driver={Microsoft Access Driver (*.mdb)};dbq="
var database = Server.MapPath("database.mdb");
Cn.Open(stringa + database);
}
}
catch (e)
{
Response.Write("Errore durante un tentativo di connessione al database");
Response.End();
}
}
function ConnClose()
{
try
{
if (Cn.State == 1)
{
Cn.Close();
}
}
catch (e)
{
Response.Write("Errore durante la chiusura della connessione al database");
Response.End();
}
}
%>
In primo luogo dichiaro a livello globale la variabile Cn come nuovo oggetto ADODB.Connection.
Esaminiamo la funzione per l'apertura della connessione al database: gestisco eventuali errori col costrutto try - catch e controllo che lo stato della connessione sia su zero (0 - ovvero chiusa) per aprirla, altrimenti lancio un messaggio di errore e termino l'esecuzione della pagina, segnalando più o meno dettagliatamente il problema tecnico verificatosi.
La funzione per la chiusura della connessione funziona allo stesso identico modo della precedente, limitandosi a chiudere la connessione.
Da notare che il file non contiene la dichiarazione del linguaggio di scripting utilizzato, il JScript, dato che verrà incluso nelle pagine che necessitano della connessione al database.
Per testare lo script si crei il file index.asp col seguente codice:
<%@LANGUAGE = JScript%>
<!--#include file="conn.asp"-->
<%
ConnOpen();
var Mostra = Cn.Execute("SELECT nome FROM utenti");
while (!Mostra.EOF)
{
Response.Write(Mostra("nome") + "<br>");
Mostra.MoveNext();
}
ConnClose();
%>
Fonte: www.webmasterpoint.org
Stampa 
